!!!!    4    0    1 1350440042   0000                                         
print "Updating Test Result demonstration" | print"" | wait 2

print "Loading DLL into memory" | print "" | wait 5
dllload "demo.dll", Handle

dllcall Handle, "LoadTestData", Str$; "0001"
print "Getting Initial Test Data and print" | wait3
print Str$

Str$ = "0001,Pass"
print "Update Test Result" | wait 5
dllcall Handle, "UpdateTestResult";Str$
print ""

print "Getting Initial Test Data and print" |wait 3
dllcall Handle, "LoadTestData", Str$; "0002"
print Str$
Str$ ="0002,Pass"

print "Update Test Result" | wait 5
dllcall Handle, "UpdateTestResult";Str$
print ""

print "Test Data from database"
dllcall Handle, "LoadTestData", Str$; "0001" | wait 3
print Str$
dllcall Handle, "LoadTestData", Str$; "0002" | wait 3
print Str$

dllunload Handle
print "" | print "Unload DLL"
